home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / COM1_EX.BAS < prev    next >
BASIC Source File  |  1988-09-17  |  465b  |  21 lines
  1. '
  2. ' *** COM1_EX.BAS - COMMON statement programming example
  3. '
  4. DIM Values(1 TO 50)
  5. COMMON Values(), NumValues
  6.  
  7. PRINT "Enter values one per line. Type 'END' to quit."
  8. NumValues = 0
  9. DO
  10.    INPUT "-> ", N$
  11.    IF I >= 50 OR UCASE$(N$) = "END" THEN EXIT DO
  12.    NumValues = NumValues + 1
  13.    Values(NumValues) = VAL(N$)
  14. LOOP
  15. PRINT "Leaving COM1_EX.BAS to chain to COM2_EX.BAS"
  16. PRINT "Press any key to chain... "
  17. DO WHILE INKEY$ = ""
  18. LOOP
  19.  
  20. CHAIN "com2_ex"
  21.